home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
DEMONSTR
/
TIMWIN.ZIP
/
DFFT.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-09-22
|
1KB
|
56 lines
;TIM-DEMO 0.5.2 DFFT
;*****************************************************************************
#define DfrdFFT 1190
#define DfrdFFT1 1200
#define DfrdFFT2 1210
#define DfrdFFT3 1220
#define DfrdFFT4 1230
#define DfrdFFT5 1240
#define DfrdFFT6 1250
#include timdefs.h
parms
int windis ;display mode Windows images
file timdemo
int hmode
endparms
cls
dest p
show p
zoom 0
copy holo
*windispl h windis
help timdemo DfrdFFT1 2
fftr p f
help timdemo DfrdFFT2 2
ffto f
help timdemo DfrdFFT3 2
dest q
fftd f q 4 128
*windispl i (windis+NO_DITHER)
help timdemo DfrdFFT4 2
dest s
thre q 50 ;threshold the frequencies
lps 8 ;smoothen the object
lsk 8
ldi6 8
bit 8
;unif 9
fftm s f ;perform the filtering
help timdemo DfrdFFT5 2
fftb f
dest r
help timdemo DfrdFFT6 2
fftd f r 4 0 ;display modulus
*windispl i windis
stop